home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / bonus.arc / FPRINT.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1987-08-24  |  381 b   |  20 lines
  1. ;
  2. ;  Function to print (list) an ASCII text file on the screen.
  3. ;
  4. ;  Usage:   (fprint "filename.ext")
  5. ;
  6. (defun fprint (s / c i)
  7.    (setq i (open s "r"))
  8.    (if i
  9.       (progn
  10.          (while (setq c (read-line i))
  11.             (princ c)
  12.             (princ "\n")
  13.          )
  14.          (close i)
  15.       )
  16.       (princ (strcat "Cannot open file " s))
  17.    )
  18.    (princ)
  19. )
  20.